home *** CD-ROM | disk | FTP | other *** search
/ Historia Visual de la Argentina / Historia Visual de la Argentina (Disc 2) (1931-1955) (Argentina) / HVA19311955.bin / data2 / tematico.dxr / 00021.ls < prev    next >
Encoding:
Text File  |  2000-10-09  |  2.0 KB  |  79 lines
  1. on startMovie
  2.   global anios, topeFinal, estadoVideo, buscarSec, proximo, crono, rigido, TEXTO, FOTOS, AUDIOS, PERSONAJES, VIDEOS, PEFOTOS, PEAUDIOS, PEVIDEOS, CLFICHAS, CLNOTAS
  3.   if the movieName contains "crono" then
  4.     set crono to 1
  5.   else
  6.     set crono to 0
  7.   end if
  8.   set proximo to 0
  9.   limpiaFieldsResult()
  10.   set buscarSec to 0
  11.   set estadoVideo to 1
  12.   set topeFinal to 0
  13.   set anios to [1900, 1901, 1902]
  14.   put EMPTY into field "buscar"
  15.   put EMPTY into field "buscarIndice"
  16.   set DBResult to DBOpenSession()
  17.   if DBResult < 0 then
  18.     alert("FileFlex error opening session")
  19.     exit
  20.   end if
  21.   set base to rigido & "db\textos.dbf"
  22.   set TEXTO to DBUse(base)
  23.   set base to rigido & "db\fotos.dbf"
  24.   set FOTOS to DBUse(base)
  25.   set base to rigido & "db\audios.dbf"
  26.   set AUDIOS to DBUse(base)
  27.   set base to rigido & "db\personaj.dbf"
  28.   set PERSONAJES to DBUse(base)
  29.   set base to rigido & "db\videos.dbf"
  30.   set VIDEOS to DBUse(base)
  31.   set base to rigido & "db\pefotos.dbf"
  32.   set PEFOTOS to DBUse(base)
  33.   set base to rigido & "db\peaudio.dbf"
  34.   set PEAUDIOS to DBUse(base)
  35.   set base to rigido & "db\pevideos.dbf"
  36.   set PEVIDEOS to DBUse(base)
  37.   set base to rigido & "db\clfichas.dbf"
  38.   set CLFICHAS to DBUse(base)
  39.   set base to rigido & "db\clnotas.dbf"
  40.   set CLNOTAS to DBUse(base)
  41.   if TEXTO < 0 then
  42.     closeFilesAndSession()
  43.     alert("Error opening " & base)
  44.   else
  45.     if the movieName contains "crono" then
  46.       displayAnios()
  47.     else
  48.       listaCompleta()
  49.     end if
  50.   end if
  51. end
  52.  
  53. on closeFilesAndSession
  54.   set DBResult to DBCloseAll()
  55.   if DBResult < 0 then
  56.     alert("FileFlex error closing all files")
  57.     exit
  58.   end if
  59.   set DBResult to DBCloseSession()
  60.   if DBResult < 0 then
  61.     alert("FileFlex error closing session")
  62.     exit
  63.   end if
  64. end
  65.  
  66. on stopMovie
  67.   set the scrollTop of member "FieldNoticia" to 1
  68.   set DBResult to DBCloseAll()
  69.   if DBResult < 0 then
  70.     alert("FileFlex error closing all files")
  71.     exit
  72.   end if
  73.   set DBResult to DBCloseSession()
  74.   if DBResult < 0 then
  75.     alert("FileFlex error closing session")
  76.     exit
  77.   end if
  78. end
  79.